home *** CD-ROM | disk | FTP | other *** search
/ Chaos CD Blue / Chaos_CD_Blue__[1999].iso / maxim / old / 011.jpg < prev    next >
Joint Photographic Experts Group Image  |  1999-11-27  |  484KB  |  1234x1794  |  8-bit (254 colors)
Labels: text | font | black and white | document | paper | screenshot
OCR: ( * $SETUAI * ) * * 1 * Modify User Authorization Information * * * $SETUAI [efn] , [contxt] , usrnam , itm1st , [iosb] , [astadr] A * (* , [astprm] ( * ( * efn = event flag to be set at completion (* AA (* contxt = address of a context longword (UAF IFI & ISI) (* * usrnam = address of user name descriptor * ( * itmlst = address of a list of item descriptors (* *) ( * iosb = address of a quadword I/O status block * ) ( * * 1 * astadr = address of entry mask of AST routine * 1 * * astprm = value to be passed to AST routine * * *) * * [ASYNCHRONOUS , EXTERNAL ( SYS$SETUAI) ] FUNCTION $SETUAI ( %IMMED EFN : UNSIGNED := %IMMED 0; %REF CONTXT : UNSIGNED := %IMMED 0; USRNAM : [CLASS_S] PACKED ARRAY [$13. . $u3 : INTEGER] OF CHAR; %REF ITMLST : [UNSAFE] ARRAY [$14. . $u4 : INTEGER] OF ŞUBYTE; VAR ...